module constants_mod
	
  implicit none

  integer , parameter :: r8 = 8
  real(r8), parameter :: pi = 4.d0 * atan(1.d0)
  real(r8), parameter :: pi2 = pi * 2.d0
  real(r8), parameter :: tol = 1.0E-15_r8, SMALL = 1.0E-12_r8
  integer , parameter :: max_iter = 50
  real(r8), parameter :: epsilon = 1.0E-16_r8

end module constants_mod